home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / par-ser.bas < prev    next >
BASIC Source File  |  1994-06-23  |  1KB  |  32 lines
  1. 10 PRINT "      ***SERIES-PARALLEL AND PARALLEL-SERIES CONVERSIONS***"
  2. 20 PRINT
  3. 30 INPUT "ENTER CHOICE OF (SP) OR (PS)"; AB$
  4. 40 IF AB$="SP" THEN 45 ELSE 130
  5. 45 PRINT "WHAT IS THE VALUE OF THE SERIES RESISTANCE (RS)?"
  6. 50 INPUT "ENTER"; RS
  7. 65 PRINT "WHAT IS THE VALUE OF THE SERIES REEACTANCE (XS)? (-) IF CAPACITIVE."
  8. 70 INPUT "ENTER"; XS
  9. 85 RP=(RS^2+XS^2)/RS
  10. 100 XP=(RS^2+XS^2)/XS
  11. 102 PRINT
  12. 104 PRINT "                    ***ANSWERS***"
  13. 106 PRINT
  14. 108 PRINT RS,"SERIES RESISTANCE (RS)."
  15. 110 PRINT XS,"SERIES REACTANCE (XS)."
  16. 112 PRINT RP,"PARALLEL RESISTANCE (RP)."
  17. 114 PRINT XP,"PARALLEL REACTANCE (XP)."
  18. 116 GOTO 200
  19. 130 PRINT "WHAT IS THE VALUE OF THE PARALLEL RESISTANCE (RP)?"
  20. 135 INPUT "ENTER"; RP
  21. 150 PRINT "WHAT IS THE VALUE OF THE PARALLEL REACTANCE (XP)? (-) IF CAPACITIVE."
  22. 152 INPUT "ENTER"; XP
  23. 165 RS=RP*XP^2/(RP^2+XP^2)
  24. 170 XS=RS*RP/XP
  25. 175 PRINT "                     ***ANSWERS***"
  26. 180 PRINT
  27. 185 PRINT  RP,"PARALLEL RESISTANCE (RP)."
  28. 186 PRINT  XP,"PARALLEL REACTAANCE (XP)."
  29. 187 PRINT  RS,"SERIES RESISTANCE (RS)."
  30. 188 PRINT  XS,"SERIES REACTANCE (XS)."
  31. 200 END
  32.